box::use(
  here[here],
  ./modules/deontologist_analysis,
  ./modules/descriptives,
  ./modules/conjoint_analysis
)

pause=function(){
    on.exit(eat_input())
    cat("Paused: press ctrl-C (or Escape key in Rstudio) to continue\n")
    cat("(any subsequent code will be ignored)\n")
    Sys.sleep(Inf)
}

eat_input=function(){
    cat("\033[1A")
    while((x=readline())!='')cat("\033[1A")
}

options(error=pause)

descriptives$make_descriptive_tables()

deontologist_analysis$make_deontologist_analyses()

conjoint_analysis$make_conjoint_analysis()
